home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 August (Alt) / CHIP 2005-08.1.iso / program / guvenlik / syslinux-3.07.exe / sys2ansi.pl < prev    next >
Encoding:
Perl Script  |  2003-06-30  |  1.4 KB  |  55 lines
  1. #!/usr/bin/perl
  2. # $Id: sys2ansi.pl,v 1.8 2003/07/01 00:49:31 hpa Exp $
  3. #
  4. # Perl script to convert a Syslinux-format screen to PC-ANSI
  5. # to display in a color xterm or on the Linux console
  6. #
  7.  
  8. @ansicol = (0,4,2,6,1,5,3,7);
  9.  
  10. $getting_file = 0;
  11. $enable = 1;
  12.  
  13. while ( read(STDIN, $ch, 1) > 0 ) {
  14.     if ( $ch eq "\x1A" ) {    # <SUB> <Ctrl-Z> EOF
  15.     last;
  16.     } elsif ( $ch eq "\x0C" ) {    # <FF>  <Ctrl-L> Clear screen
  17.     print "\x1b[2J" if ( $enable && !$getting_file );
  18.     } elsif ( $ch eq "\x0F" ) {    # <SI>  <Ctrl-O> Attribute change
  19.     if ( !$getting_file ) {
  20.         if ( read(STDIN, $attr, 2) == 2 ) {
  21.         $attr = hex $attr;
  22.         if ( $enable ) {
  23.             print "\x1b[0;";
  24.             if ( $attr & 0x80 ) {
  25.             print "5;";
  26.             $attr &= ~0x80;
  27.             }
  28.             if ( $attr & 0x08 ) {
  29.             print "1;";
  30.             $attr &= ~0x08;
  31.             }
  32.             printf "%d;%dm",
  33.             $ansicol[$attr >> 4] + 40, $ansicol[$attr & 7] + 30;
  34.         }
  35.         }
  36.     }
  37.     } elsif ( $ch eq "\x18" ) {    # <CAN> <Ctrl-X> Display image
  38.     # We can't display an image; pretend to be a text screen
  39.     # Ignore all input until end of line
  40.     $getting_file = 1;
  41.     } elsif ( (ord($ch) & ~07) == 0x10 ) { # Mode controls
  42.     $enable = (ord($ch) & 0x01); # Emulate the text screen
  43.     } elsif ( $ch eq "\x0D" ) {    # <CR>  <Ctrl-M> Carriage return
  44.     # Ignore
  45.     } elsif ( $ch eq "\x0A" ) { # <LF>  <Ctrl-J> Line feed
  46.     if ( $getting_file ) {
  47.         $getting_file = 0;
  48.     } else {
  49.         print $ch if ( $enable );
  50.     }
  51.     } else {
  52.     print $ch if ( $enable && !$getting_file );
  53.     }
  54. }
  55.